with Ada.Text_IO;
use Ada.Text_IO;

procedure WhileControl is
	type CountInt is new Integer range 0 .. 5;
	Counter : CountInt;
begin 
	Counter := 0;
	While Counter < 5 loop
		Counter := Counter + 1;
		case Counter is
			when 0 =>
				Put_Line("Got Here Somehow.");
			when 1 => 
				Put_Line("One.");
			when 2 =>
				Put_Line("Two.");
			when 3 =>
				Put_Line("Three.");
			when 4 =>
				Put_Line("Four.");
			when 5 =>
				Put_Line("Five & the end.");
		end case;
	end loop;
end WhileControl;
